a 


Bas 


FFFFFFFFFRFFFFE 000000000 RRRRRRRRRRRR RRRRRRRRRRRR TITTTTTTTTTTTTT LLet 
FFFFFRFFRRFFFFE 000000000 RRRRRRRRRRRR RRRRRRRRRRRR TITTTTTTTTTTTFT Lie 
FFFFFRFRRRFFFFFE 000000000 RRRRRRRRRRRR RRRRRRRRRRRR TITTTTITTTTTTTT §=LtL 
FFF 000 000 RRR RRR RRR RRR TTT LLL 
FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 
FFFFFFFFFFFF 000 000 RRRRRRRRRRRR RRRRRRRRRRRR TTT LLL 
FFFFFFFFFFFE 000 000 RRRRRRRRRRRR RRRRRRRRRRRR TTT LLL 
FFFFFFFFFFFF 000 000 RRRRRRRRRRRR RRRRRRRRRRRR TTT LLL 

FFF 000 000 RRR RRR RRR = RRR TTT LLL 

FFF 000 000 RRR RRR RRR = =RRR TTT LLL 

FFF 000 RRR RRR RRR = RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 0 000 RRR RRR RRR RRR TTT LLL 

FFF 000000000 RRR RRR RRR RRR TTT LLLLLLLLLLELLLL 
FFF 000000000 RRR RRR RRR RRR TTT LLLLLLLLLLELLLL 
FFF 000000000 RRR RRR RRR RRR TTT LLLLELLLLLLLLLL 
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F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
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LOL LL LL LL LL LL LL LO LO LP LO LL LL LL 


**F ILE**1D**F ORUDFRU 
FFFFFFFFFE 000000 RRRRRRRR UU UU DDDDDDDD FFFFFFFFFF RRRRRRRR UU UU 
FFFFFFFFFF 000000 RRRRRRRR UU UU DDDDDDDD FFFFFFFFFF RRRRRRRR UU UU 
FF 00 OO RR RR UU UU 0D DD FF RR RR UU UU 
FF 00 00 RR RR UU UU DD DD FF RR RR UU UU 
FF 00 RR RR UU UU 0D DD FF RR RR UU UU 
FF 00 00 RR RR UU UU DD DD FF RR RR UU UU 
FFFFFFFF 00 00 RRRRRRRR UU UU DD DD FFFFFFFF RRRRRRRR UU UU 
FFFFFFFF 00 O00 RRRRRRRR UU UU DD DD FFFFFFFF RRRRRRRR UU UU 
FF 00 OO RR RR UU UU DD DD FF RR RR UU UU 
FF 00 OO RR RR UU UU DD DD FF RR RR UU UU 
FF 00 0O RR RR UU UU DD DD FF RR RR UU UU eoee 
FF 00 00 RR RR UU UU DD DD FF RR RR UU UU eeee 
FF 000000 RR RR UUUUUUUUUU DDDDDDDD FF RR RR UUUUUUUUUU cece 
FF 000000 RR RR UUUUUUUUUU DDDDDDDD FF RR RR = UUUUUUUUUU eves 
LL 111111 SSSSSSSS 
LL III] SSSSSSSS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SSSSSS 
LL I] SSSSSS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SS 
LLLLLLLLLL 1111] SSSSSSSS 
LLLLLLLLLL HII] SSSSSSSS 
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MODULE FORSSUDF_RU ( ead un grantees UDF 


FORSSUDF _RU 1b-be0-1944 90:39:18 AX-11 B Bits =32 V4.0-7 Page 
“fo ENT = '1-013' ! File: FORUDFRU. ‘BoE faite JAW! 151 
BEGIN 
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is COPYRIGHT (c) 1978, 1980, 1982, 1984 8 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


ie THIS . fs eee qaeet A LICENSE tee MAY BE oo 2 AND gd ba 
ON CCORDANCE W THE TERMS OF LIC 


a 
* 
® 
me 
® 
a 
® 
®t 
4 * 
ie OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
ie TRANSFERRED. . 
® 
ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
® 
® 
® 
® 
* 
® 
& 
* 


tt AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
'® CORPORATION. 


'® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
'® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


See eee RRR RARE AAA AERA AAA AAA AAT AAA ERAT ARREARS 


SOCCCOCCOCCOOCOCOOOCOOOCOOOOOOoOoCOoOO 


WWWWAAA NWI POPONONO NUNN 2 2 2 we 
FWD “OO BNOUEWN “OO ONOAU SW “OOONOM Ewin 
poleojleleleleleleoleleleleloleleleleleleleolelelelelelelealelelelololeleala) 
WWWAIA. AAAI AIP POPUP PU NINNNDD 2 = SS SS = B@OOOOOCOOCOO 
ak a es a a st ss ss 9 es ss is a as ss © ss ss ss ss ss 2s ss 2s 4 9 5 4 4 4 2 DOD 


0 'e¢ 
8 FACILITY: FORTRAN Support Library - not user callable 
BB ABSTRACT: 
0 ‘ This module implements FORTRAN Read unformatted 1/0 
5 0 : Statements (sequential access - S, direct access - D, 
6 0 : at the User data Formatter level of 
7 0 ! abstraction (UDF Level is 2nd oe This module 
8 0038 ! calls the appropriate Read record 
39 0039 : routine at the record handling level of abstraction (REC 
re pee level is 3rd level) to Read a record. 
4g Bee ENVIRONMENT: User access mode; reentrant AST level or not. 
$8 Boee : AUTHOR: Thomas N. Hastings; CREATION DATE: 31-Aug-77 
46 0046 ' MODIFIED BY: 
47 0047 : Thomas N. Hastings, 31-Aug-77: Version 01 
48 0048 ! 01 - original 
49 0049 ! 0-3 = Removed parameters to record level routines JMT 17-OCT-77 
50 0050 ' 0-5 = Global re ister CCB. T 8-Apr-78 
51 0051 ' 0-06 = Change REQUIRE ites tor A... systen build. DGP 28-Apr-78 
52 R236 ' 0-07 - Use $B" Linkages. TNH 22-May- 
53 05 : 8-98 - PIC dispatch tables. TNH 7-June-78 
54 054 ! 0-09 = Change file name to " FORUDFRU. B3 and covers the names of 
55 055 ' the REQUIRE files similarly. 6S 14- 
56 8036 ! 1-001 - Update the version number and copyright notice. JBS 16-NOV-78 
57 005 ! 1-002 - ¢ ange the REQUIRE file names from FOR... to OTS... JBS 06-DEC-78 


K 10 
FORSSUDF _RU 16-Sep-1984 :50:1 AX-11 Bliss-32 V4.0-74 Page 2 
1-013 14- ety 7 99:35:85 FORRTL. BR RCIFORUDFRU. B32;1 ’ (1). 
; 0038 1 ! 1-003 = Change egterenses | 4 1/0 dipatch tables. DGP 08- + ri 
; 0059 1 | 1-004 = Change TS8BR sur 8 le references to longwords. DGP 11-Dec-78 
; 60 9060 1 ! 1-005 - ‘ogg ISBSA BY F tBEGe BUF_PTR, BUF_END, B 4 Me hw 189 LuB. *OGP 08-Jan-79 
; 66) 0061 1! 1~099 - Use bit addresses for externals. JBS 
; 6¢ p66 1 | 1-007 - = lLanguage-specific dispatch t bles. “8s “SO iUN-1979 
3; 6 B30 1 | 1-008 = Use ISB dispatch offsets. SBL 12-Jul y>1 
; 664 064 1 | 1-009 = Give * error St on gpgrcest ing too much data if not segmented. 
,; 065 1! _ 18-Sept-1 
; 66 066 1 | 1-010 = Implement unbuffered transfers for single-element Lists: defer 
; oF 0067 1: “level initialization until first element is requested; 
; 68 068 1! then if recordtype is not segmented and record size permits, 
; 9 069 1: set up RAB so record wil! be read directly into element, a yy 
; 0 070 1! do not copy any gare, from buffer to element. JAW 06-May-1981 
.. re 0071 1 | 1-011 = Continuation o O not attempt an unbuffered transfer 
ae : 0072 1! for a keyed read. yo LUBSA _BUF_PTR when deferring REC-Llevel 
3 7 0073 1! initialization. i recordtype=variable. JAW 02-Jun-1981 
s 76 0074 1! 1-012 = Continuation of 1 Handle sequential read correctly when | 
_- 0075 1: access=keyed. Add minor optimizations. JAW 06-Jun-198 
; A | Baoe : - 1-013 - Add test ter ISBSV_NEED_INIT in FORSSUDF uRU1. JAW "06-Jun-1981 
. 0078 1 
: #679 0079 1 '<BLF/PAGE> 


. 
e 
- 
oe 
. 
e 
. 
° 
. 
. 
. 
e 
. 
. 
. 
a 
. 
a” 
. 
on 
. 
o 
7 
° 
. 
. 
. 
e 
7 
e 
. 
a 
. 
. 
. 
” 
. 
e 
a 
. 
. 
. 
. 
e 
. 
o 
. 
. 
. 
: 
. 
c 
. 
. 
. 
- 
. 
~ 
. 
. 
. 
o 
. 
e 
. 
. 
. 
a 
. 
e 
. 
. 
. 
. 
. 
. 
. 
. 
. 
. 
> 
. 
a 
. 
€ 
. 
e 
. 
- 
. 
. 
. 
e 
. 
e 
~ 
s 
. 
. 
. 
e 
. 
oe 
. 
a 
. 
o 
. 
. 
. 
o 
. 
. 


 REnGBEs icrs/c1s: SS ARDEP RREREEPREUREA nesses 


FORSSUDF _RU 1b-Se -1984 :50:1 AX-11 Bliss-32 V4.0-74 P | 
1-013 1enep- 138s 99: 38i3S FANG Bliss ae Ve Ones age 3 
81 B080 ! ; 
eB 081 ' SWITCHES: 3 
84 oo8s | | : 
#4 Boge SWITCHES ADDRESSING_MODE (EXTERNAL = GENERAL, NONEXTERNAL = WORD_RELATIVE); ‘ 
87 0086 1 | ; 
88 008 ' LINKAGES: : 
89 0088 ! 3 
90 0089 F 
4! 43 REQUIRE ‘RTLIN:OTSLNK'; ! Define all Linkages : 
9 0826 ] | 3 
94 0521 !' TABLE OF CONTENTS: 3 
95 05 ¢ ' | 3 
96 05 3 
97 0524 FORWARD ROUTINE 3 
98 0525 FORSSUDF_RUO : JSB_UDFO NOVALUE, ! initialization é 
9 Sas8 FORSSUDF_RU1 : CALC _CCB NOVALUE, ! format one user I/0 List element 
? b2se FORSSUDF-RU9 : JSB_ODF9 NOVALUE; ! end of user I/0 List = finish 
; B26. ! 
0530 ' INCLUDE FILES: 
4 0531 ! | 
5 b2ag 
05 REQUIRE ‘RTLML:FORERR'; ' FORTRAN error codes 
BS : REQUIRE ‘RTLML:OTSLUB'; ! Logical unit block (LUB) offsets 
me REQUIRE ‘RTLML:OTSISB'; ' 1/0 statement block (ISB) offsets 
4 REQUIRE "RTLIN:OTSMAC'; ‘ 
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REQUIRE "RTLIN:RTLPSECT'; Define DECLARE_PSECTS macro 
REQUIRE 'RTLIN:RTLODBG'; RTL debugging macros 
LIBRARY "RTLSTARLE'; | 


| 
Macros | 


! MACROS: 
EQUATED SYMBOLS: 


i] 

' 

i 

i PSECT DECLARATIONS: 
DECLARE _PSECTS (FOR); 
i 


declare PSECTs for FORS facility 
OWN STORAGE: 

None 
EXTERNAL REFERENCES: 


ee ee ee en en ee ee ee ee ee ee ee ee ee 


a a eh ee ee ed dd 
ON Sn ud APN AOS re eS 


NOUEWN —O OONOUES WN “OC OONOU SW —O0On 


EXTERNAL 


mM 10 
ie 1ezSep- 1986 19:30:59 ERORATL SRCSFORUDERU- B59; 1 eg | 


1 
: «138 1 1H 1 FORSSAA_REC_PRO : VECTOR, ! PIC array of record processor 
; 139 1334 1 ! procedure-initializations in REC 
; 140 1335 1 ' level of abstraction. Indexed by 
; «6141 1336 1 ' 1/0 statement type (ISBSB_STTM_TYPE) 
: 126 1337 1 FORSSAA_REC_PR1 : VECTOR, ' PIC array of record processor procedures 
: 14 1338 1 ' Read a record in REC level of 
; «61446 1339 (1 ' abstraction. Indexed by 1/0 statement 
: 145 1340 1 : . pe (I1SB$B_STTM_TYPE) 
; 138 : ] : FORSSAA_REC_PRO : VECTOR; ! py array of record processor procedures 
; 148 1 rk 1 ' Read Last record in REC level of 
; 149 1344 «(1 ' abstraction. Indexed by I 
: 120 : t2 : ' statement type (ISBSB_STTM_TYPE) 
: 136 1347 1 EXTERNAL ROUTINE ; 
; 1348 1 FORSSSIGNAL_STO : NOVALUE; ! Signal fatal error 


ROUTINE VALUE: 
COMPLETION CODES: 


NONE 
SIDE EFFECTS: 
NONE 


N 10 
FORSSUDF _RU 16-Sep-1984 00:50:1 AX-11 Bliss-32 V4.0-74 Page 5 
ee 12-808- 1382 99:33:55 FORRTL. SRC IFORUDFRU.B3 zt ° (3) 
49 GLOBAL ROUTINE FORSSUDF _RUO ! Read unformatted UDF initialization 
50 : JSB_UDFO NOVALUE = 
51 
26 'e¢ 
$27 FUNCTIONAL DESCRIPTION: 
356 ! Initialize Read unformatted User data farmatter (UDF) 
337 ! CALLING SEQUENCE: 
359 ; JSB FORSSUDF_RUO () 
364 i FORMAL PARAMETERS: 
306 ! 
36 \ None. 
364 ! 
$0) } IMPLICIT INPUTS: 
367 i ccB Pointer to current logical unit block 
368 : ISBSB_STTM_TYPE 1/0 statement type code - set by 
383 each 1/0 statement initialization 
IMPLICIT OUTPUTS: 
i LUBSA_BUF _PTR Adr. of next byte of input 
! ISBS$A_BUG_END Adr. of end+1 byte of input buffer 
! data buffer 
ISBSV_NEED_INIT Flag indicating initialization needed 
} 
} 
i 
i 


BEGIN 


EXTERNAL REGISTER 
CCB : REF BLOCK C, BYTE); 


PANO OONOUE WN - O OONOU SW 


‘+ 
! Initialize Record processing level of abstraction. 
! Set pointer to current (LUBSA_BUF_PTR) and last+1 
' (LUBSA_BUF_END) character position for user data in 
:_input buf fér 


SOOSOCO 00000 OOO WW 00 0009 0000 09 00 09 SI SI III NS SNIP OAAAAAAAOOINIIN 


COOOCOCOCOO OOO OOO OWWWWWWOWWO NNN NNN NS 


'¢ 

; Opt taizet ton: 

! For an unformatted READ (other than keyed), defer REC-level 
! initialization until FORSSUDF_RU1, in case the 1/0 list is 

! single-element and the record can be read directly into the 


ee ee eS SES SY 


BBL EE FAWN AAA AAA ANA AA AA AAW WWW 


——O0000 


—C DONO 
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KNIPININIPINININNININIDY a at tk at a oh 0 tt 


Be Be Be Oe Be Oe Oe Oe Oe Be OE SH Oe Be Be Oe Be Oe Oe Oe Be Be Be BH OH OH Oe OF Oe Oe Oe Oe BHO OE Os Os Oe OH OE OE Oe OF Os Oe Os OH Os Os ws Oe Oe Be Se eee ee 


MEW —OOOnoOu 


oo 


Be Se ee BeBe Se Be Se Se Be Se Se Se Se Se Se Be Se Se Se Se Se Se Se Ge Se Fe Se Se Se Se Ge Se Se Ge Se Se Se Se SH Se Se Se Se Se Se Se Se FFs Ge Se Se ee Se te ee 


FORSSUDF _RU 

1-015 

3 1g 1406 

; 1 1407 

> 214 1408 

: 15 1409 

: 18 1410 

: 1 1411 

: 18 1218 

; 19 141 

; 220 1414 

$ ger 1415 

: ss¢ 1416 

; 55 1417 

: 4 1416 

3 £20 1419 

; 226 1420 3 
3. ger 1421 2 
; 228 1422 2 
s ee 14235 2 
: 230 1424 1 
; Routine Size: 37 bytes, 
3 251 1425 1 


7t 
eaSep-19be 12:32:58 — EROARTL SRESFORUDFRU-B39; 1 


element. Also, set LUBSA_BUF_PTR to LUBSA_BUF _END to indicate to 
certain of the element transmitters that no dafa has yet been 


read. 
REC-level initialization is not deferred for a keyed READ because 
the key is unavailable once FOR$$I10_BEG returns to the user. 


SBSB_STTM_TYPE] EQL ISBSK_ST_TY RKU THEN 
CO (FORSSAA_REC_PRO + .FORSSAA_REC PreesK Fe ok B_STTM_TYPE] = 


O-+ 117 


BSV_NEED INIT] = 
BSA_BUF PTR] = 


“pInz 
-— 
cw 


“cei CLUBSA_BUF _END); 


RETURN; 
END; ! End of FORSSUDF_RUO routine 


SSUDF_RU 


OR 
1- 
ORSSAA_REC_PRO 
ORSSAA_REC_PR1 
ORSSAA_REC PRO 
-EXTRN FORSSSIGNAL_STO 


-PSECT _FORSCODE,NOWRT, SHR, PIC,2 


F 
\ 
TRN F 
F 
F 


-143(CCB), #16 
5 BNEQ 1$ 
7 MOVZBL -143(CCB), RO 
C MOVL FORSSAA_ REC -PROCROJ, RO 
4 JMP FORSSAA. BEC Ae PROCROJ 
97 B 5¢ 
BO AB B4 4 


POLLO 
wooows 


1$: BISB2 #32, - CUB) 
Oar “7etCCB). -80(CCB) 


Routine Base: _FORSCODE + 0000 


1414. 


i ss — 
rr FS 
RA3a! «aleald 
+ouo wo 


Be i Be Oe Be Oe Oe Be SESE SH Se Se Se Oe SH SESE Se Se Se Se Se Se SH SHS Se we SHB Se BH Se Se SESE Te SH Se Se Se Se Se Se Se Se Se Se Se sear ae SH Se Seas 


FORSSUDF _RU 
1-01 


538 
239 
240 
$c) 
543 3 
ste 3 
45 3 
ses 3 
47 4 
248 4 
249 a 
250 4 
251 4 
$26 4 
25 & 
254 4 
255 4 
256 4 
257 5 
258 5 
259 5 
260 5 
261 5 
26 5 
26 5 
264 5 
265 5 
266 5 
267 6 
268 6 
269 6 
270 6 
271 6 
27 6 
27 6 
274 


COOwoyNNN~S 
eae ed ee ca ce ea ee ed ce ee ed ce ee ee ee ce ed ee ee ee ee ee cd a a ed ee ec ee ce ce ee ce ee cet a cee ce ee ee ee a ee ce a ee ce ed ee eB 


Foe oe oe oe oe oF ot ot ot ot oF ot ot et et et et et eh ee ee ee en ee 


OOO NNN SN NSN NOOO 
MR —DOOWNOA VS WN 2 OOONOA UE WN 0 ODNOA UE WR O OONOAUE WN (OO ENAUE WN OOONO 
ee ee ce ee ee eed ae ce ed ed ee ce ed ee ee ce ee ee a ee a ee ce ee el ee ee ee ee ee ee ee ee ee ee a ee ee ee ee ee ee el 
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1b-Se -1984 00:50:1 AX-11 Bliss-32 V4.0-74 Page 7 
12286871384 99:33:45 LPORRTL SRe FORUDFRU.B32;1 . (4) 
GLOBAL ROUTINE FORSSUDF_RU1 ( ! Copy one user input element 

ELEM_TYPE, ! Type code of user 1/0 List element 

ELEM_SIZE, ! No. of addressable units in element 

ELEM_ADR) ! Adr. of element 

: CALL_CCB NOVALUE = 


++ 
FUNCTIONAL DESCRIPTION: 


FORSSUDF_RU1 copies from current input buffer to a single user 1/0 List element 
If the entire user element exceeds the remainder of the input buffer, 

only part is copied and a_new buffer is input by calling 

the roeee record level (3rd level of abstraction). 

FORSSUDF_RU is the same for all access modes. 


CALLING SEQUENCE: 
CALL FORSSUDF_RU1 (elem_type.rlu.v, elem_size.rlu.v, elem_adr.rx.r) 


! FORMAL PARAMETERS: 


ELEM_TYPE.rlu.v Type code of user I/0 List 

element. Form: ELEM_TYPE_x 
x = B,W,L,RU,LU F D,FC,1T,G,H,DC or GC. 
Size of user 1/0 list element 


ELEM_SIZE.rlu.v 

in addressabie machine units 
ELEM_ADR.rx.r Adr. of user 1/0 List element 

x = b, w, L, RU, lu, f, d, fe, t, 


g. h, dc or gc. 


i IMPLICIT INPUTS: 


' The followin 


i to FORSSUDF_ 


OTSS$A_CUR_LUB Pointer to current logical unit block 
(LUB). Used to setup base pointer ISB 
to current 1/0 statement block 

ISBSB_STTM_TYPE 1/0 statement type code - set by each 
1/0 statement initialization 

ISBSV_SNGL_ELEM Flag indicating that the element is the 


only element in the current 1/0 List 


ISB locations are set only by previous calls to 


FORSSUDF_RU{0,1}, i.e., are effectively OW 


LUBSA_BUF _PTR Pointer to next char. position 
in user data per’ of input buffer 
LUBS$A_BUF _END Adr. of last+l char position of input buffer. 


i IMPLICIT OUTPUTS: 


ISBSV_SNGL_ELEM 


LUBSA_BUF _PTR 


This flag is cleared if an unbuffered 
transfer is not possible. 


! The ros jouing ISB locations are set only by prevtous calls 
u{0,1}, i.e., are effectively OWN. 


Pointer to next char. position 
in user data part of input buffer 


"(raat een tar aerate eee ee ee i, 
See Se Se Se Se Be Be Be Be Be Oe ee Be Se Oe Se Be Se Oe Se Se Se BH Se Se Se SH SH ese Be oe SH ee 


a euianatenidietiiias 
D 11 
| FORSSUDF _RU 16-Sep-1984 00:50:1 AX-11 Bliss-32 V4.0-74 
/ 1-013 102808 - 1 3be 09 339:45 FORRTL SRC IF ORUDFRU.B3 31 
90 48 : 
91 48 ' FUNCTIONAL VALUE: 
9 48 : 
9 8 ’ NONE 
94 8 : 
95 8 ' SIDE EFFECTS: 
296 8 ; 
44 . FORS_INPSTAREQ if too much data requested. 
99 9 
00 9 BEGIN 
01 9 
0 9 EXTERNAL REGISTER 
30 9 CCB : REF BLOCK C, BYTE]; 
304 9 
305 9 + 
306 9 ! If this is a single-element List, check to see if the conditions 
307 0 ! for an unbuffered transfer are met. If so, set RABSL_UBF and 
308 0 1 RAB$W_USZ to point directly to the element. Then perform REC- 
309 0 : level initialization, which was deferred in anticipation of a 
3 0 ! possible single-element List, and which accomplishes the read. 
3 : Afterward, reset RABSL_UBF, RABS$W_USZ and RABSV_LOC. 


1 
1 
1 
1 
1 
1 
1 
1 
: 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


eS ace CISBSV_SNGL_ELEM] AND .CCB CISB$V_NEED_INIT] 
IF NOT .CCB CLUBSV_SEGMENTED] AND .ELEM_SIZE LEQU 65535 


10 

1 

12 

13 

14 

15 

16 

17 

18 BEGIN 

19 CCB CRABSL_UBF] = .ELEM_ADR; 

20 CCB CRAB$W-USZ] = .ELEMTSIZE; 

21 CCB CRAB$V~LOC) = 0; 

22 JSB_RECO (FORSSAA_REC_PRO + 

23 -FORSSAA_REC_PRO [.CCB CISBSB_STTM_TYPE] - 
24 ISBSR_FORSTTYLO + 1)); 

$ cee CRABSQ_RSZ] LSSU .CCB CRAB$W_USZ) 
27 FORSSSIGNAL STO (FORSK_INPSTAREQ); 

28 CCB CRAB$L_UBFJ~= .CCB CLUBSA_RBUF ADR]; 
29 CCB CRAB$W_USZJ = .CCB CLUBSW-RBUF SIZE); 
30 CCB CRAB$V~LOC] = 1; 

31 CCB CISBSV-NEED_INIT) = 0; 

32 RETURN; 

33 END 

34 ELSE 

35 
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CCB CISBSV_SNGL_ELEM] = 0; 


'¢ 
If REC-level initialization has not yet been done, do it. 


pr pes 
-—-OO0OnN 


IF .CCB CISBSV_NEED_INITJ 
THEN 


BEGIN 
JSB_RECO (FORSSAA_REC_PRO + 
-FORSSAA_REC_ PRO [.CCB C1SBSB_STTM_TYPE - 
ISBSR_FORSTTYLO + 1)); 
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11 
1b-se -1984 00:50:1 AX-11 Bliss-32 V4.0-74 Page 9 
ape 09339: 45 FORRTL. RCIFORUDFRU.B3 31 . (4) 
; 347 1369 CCB CISBSV_NEED_INITJ = 0; 
: 348 1541 END; 
; 349 1208 
; 3550 154 BEGIN 
s 3) 1544 LOCAL 
3 25 1545 TMP_ELEM_SIZE, ! temp no. ob bytes left in user element to copy 
; 35 1546 TMP_ELEM_ADR, ' temp adr. of rest of user element to copy 
: 22 ot TMP_DIFF; ' temp no. of bytes left to move to user element 
: 328 1549 + 
s Sor 1550 : Copy as much of input buffer as will fit into user element. If 
; 328 1551 ' file is Segmented. continue until request is fulfilled. If not, 
; 2B 1226 and variable wants too much data, signal stop FORS_INPSTAREQ. 
; 364 1554 ; 
; 306 1555 TMP_ELEM_SIZE = .ELEM_SIZE; 
; $07 1328 ; TMP_ELEM_ADR = .ELEM_ADR; 
; 365 1558 WHILE .CCB CLUBSA_BUF_PTR] + .TMP_ELEM_SIZE GTRA .CCB CLUBSA_BUF_ENDJ DO 
; 366 1559 4 BEGIN 
; 367 1560 4 DIFF = .CCB CLUBSA_BUF END] - .CCB CLUBSA_BUF PTR); 
: 368 1561 4 TMP_ELEM_ADR = CHSMOVE (.TAP_DIFF, .CCB LUB$A_BUF_PTR, . TMP_ELEM_ADR) ; 
: #369 1562 4 TAP -FLER SIZE = .TMP_ELEM_SIZE - .TMP_DIFF; 
; 30 3 34 : CCB” CLUBSA_BUF_PTR) = .CCB CLUBSA_BUF_PTR] + .TMP_DIFF; 
3 sre 1565 4 JSB_REC1 (FORSSAA_REC_PR1 + .FORSSAA_REC_PR1 C.CCB CISBSB_STTM_TYPE] - 
: ss 1566 4 ISBSK_FORSTTYLO * 1)); 
: $e 130% 2 IF NOT .CCB CLUBSV_SEGMENTED) 
; 376 1569 4 FORSSSIGNAL_STO (FORSK_INPSTAREQ); 
3 ST 1570 3 END; 
; 378 tee 
; oTy 1376 3 '+ 
: 380 1573 3 ' Copy from input buffer to the remainder of the user element. 
3 38) 1228 : Update buffer pointer (LUBSA_BUF_PTR) to point to last byte+1 moved. 
: 383 1576 3 
; 384 1577 3 CHSMOVE (.TMP_ELEM_SIZE, .CCB CLUBSA_BUF PTR], .TMP_ELEM_ADR); 
s; Ses 1578 3 CCB CLUBSA_BUF_PTR] = .CCB CLUBSA_BUF_PTR] + .TMP_ECEM_STZE; ; 
: 386 1579 3 RETURN; "Return from FORSSUDF_WF1 routine 
: 387 1580 2 ND; 
; 4388 1581 1 END; ! End of FORSSUDF_RU1 


07FC 00000 ENTRY FORSSUDF RUT. Save R2,R3,R4,R5,R6,R7,R8,.R9,-; 1426. 
5A 000000006 00 9€ 9002 MOVAB FORSSAA_REC_PR1, R10 : 
59 000000006 00 9€ 0000 MOVAB FORSSSIGNAL~STO. R9 : 
58 000000006 00 9€ 0010 MOVAB FOR$SAA_RECPRO, R : 

53 97 AB 4 €1 0001 BBC #4, -105(CCB), $$ : 1507 
63 97 AB 03 E1 0001C BBC #5. -105(CCB). 4$ : 

45 FD AB 03 £0 00021 BBS #3. -3(CCB) és : 1509 
OOOOFFFF BF 08 AC 01 00 6 CMPL ELEM SIZE. #65535 ; 
3B 1A O002E BGTRU 28 F 
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205 bytes, 
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1582 


; Routine Size: 


11 
FORSSUDF _RU 18. Sep-1984 00:50:1 AX-11 Bliss-32 V4.0 Page 11 
1-013 14- 23e 8-1 3b 1 £39:45 FORRTL.SRCJFORUDFRU. “43 sf ’ (5) 
: 391 1583 1 GLOBAL ROUTINE FORSSUDF _RU9 ! unformatted input - end of 1/0 List call 
: 3 1288 1 JSB_UDF9 NOVALUE = 
; 39 1585 1 
; 394 1586 1 !4¢ 
: 2 13ef : FUNCTIONAL DESCRIPTION: 
: 44 1283 ! FORSSUDF _RU9 performs end of 1/0 List input formatting. 
; 399 1591 1 | CALLING SEQUENCE: 
; 400 1238 1! 
; 401 159 1 i JSB FORSSUDF_RUD () 
; 40 133% 1! 
; 40 1595 1! FORMAL PARAMETERS: 
3; 4604 1596 1: 
; 405 1597 1! NONE 
; 406 1598 1! 
; 407 1599 1 | IMPLICIT INPUTS: 
; 408 1600 1! 
; 409 1601 1! See FORSSUDF_RU1 
: 410 lone 1} 
3; 6411 160 1! 
: a8 1604 1! IMPLICIT OUTPUTS: 
3; «41 1605 1! 
> 416 1606 1! See FORSSUDF_RU1 
> «415 1607 1! 
; 416 1608 1 | FUNCTION VALUE: 
3; 417 1609 1! 
; 418 1610 1! NONE 
3 419 1611 1 
; 420 lol¢ 1 ' SIDE EFFECTS: 
; 421 1613 1! 
; $58 1614 1! See FORSSUDF_RU1 
: 42 1615 1 I= 
> 424 1616 1 
; 425 1617 2 BEGIN 
: 426 1618 2 
: 427 1619 2 EXTERNAL REGISTER 
: 428 1620 § CCB : REF BLOCK C, BYTE); 
; $98 1621 
; 450 1622 § '+ 
3; 431 1623 ! If REC-Level initialization has not yet been done (the 1/0 List 
: 432 1624 ' was empty), do it. 
; 433 1625 ie 
: 434 1666 
; 435 16 IF .CCB CISBSV_NEED_INITJ 
; 436 1628 
; 437 \o¢? JSB_RECO (FORSSAA ~ PRO + 
: $33 1630 -FORSSAA_REC_PRO [.CCB CISBSB_STTM_TYPE] - ISBSK_FORSTTYLO + 1)); 
3; 440 1036 ed ool i i 
; ret 1o87 : Call record level of abstraction to input buffer from beginning up to but not including LUBSA_BUF _PTR 
i 64 1635 
: 644 1636 JSB_REC9 (FORSSAA_REC_PRO + .FORSSAA_REC_PRO C.CCB CISBSB_STIM_TYP &) - 
3: 445 16 ISBSK_FORSTTYLO * 155 : 
: 66 1638 
; 446 1639 RETURN; 


if. . 
FORSSUDF _RU -1984 AX-11 Bliss-32 V4.0-7 Pp 12. 
1-013 * ears yi 9: 33: 3$ FORRTL. $RCIFORUDFRU.BS B32;1 — (5 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE) /NOTRACE/LIS=L1S$:F ORUDFRU/OBJ=OBJ$:FORUDFRU MSRC$:FORUDFRU/UPDATE=(ENHS: Ff ORUDF RU) 
; Size: 287 code + 0 data bytes 
; Run Time: oer t of 
; Elapsed Time: 0:46.9 


> 448 1640 1 END; ! End of FORSSUDF_RU9 Routine : 
14 97 AB 05 £1 00000 FORSSUDF_RU9:: : 

Bee §,_-105(CCB), 1$ : 1687 ; 

50 FF71 CB 9A 00005 MOVZBL -143(CCB), RO : 1630 : 

50 0000000060040 00 O000A MOVL  FORSSAA_REC_PROCRO], RO ; | : 

0000009060040 16 0012 JSB FOR$S$SAA-REC-PROLROJ : 1629 ; 

50 FF71 cB 9A 9001 1$ MOVZBL -143(CCB) + 1637) ; 

50 0000000060040 0 0001E MOVL  FORSS$AA_REC_PRO R01. RO ; 1636) ; 

0000000060040 17 00026 JMP FORS$AA~REC_PROILRO : | ; 

; Routine Size: 45 bytes, Routine Base: _FORSCODE + O0F2 
; 449 1641 1 3 
: 450 1642 1 END ! End of FORSSUDF_RU Module F 
> 451 1643 1 ; 
: 452 1644 0 ELUDOM : 
PSECT SUMMARY 

Name Bytes Attributes ; 
_FORSCODE 287 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) : 
Library Statistics 

ooeneee Symbols ocoeoen- Pages Processing ; 

File Total Loaded Percent Mapped Time : 
.$255$DUA28: (SYSLIBISTARLET.L32;1 9776 4 0 581 00:01.1 : 


gor 


; Lines/CPU Min: $538 
3 Lexemes/CPU-Min: 3666 

3 — Used: 179 pages 
; a 


; Compilation Complete 
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